(fill-region-as-paragraph): Use save-excursion instead of relying on

forward-line to bring us where we started.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 5a39ba4d8b11c27b6e780b7883154aa37af0f3be..af491603fc892984fb54297af7be4c7e38ee038d 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -660,9 +660,9 @@ space does not end a sentence, so don't break a line there."
                      (progn
                        (delete-horizontal-space)
                        (justify-current-line justify t t))
-                   (forward-line -1)
-                   (justify-current-line justify nil t)
-                   (forward-line 1))))))
+                   (save-excursion
+                     (forward-line -1)
+                     (justify-current-line justify nil t)))))))
        ;; Leave point after final newline.
        (goto-char to))
       (unless (eobp)